home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / STARMAP.DIR / 00070_Script_70 < prev    next >
Text File  |  1995-11-16  |  490b  |  20 lines
  1. on test
  2.   put field "new O.DIR" into bob
  3.   repeat with i = 1 to (the number of lines in bob)
  4.     set quest to [:]
  5.     set quest to value("["&(line i of bob)&"]")
  6.     if not(listP(quest)) then put i&": ô"&quest&"ö"
  7.   end repeat
  8. end test
  9.  
  10. on test2
  11.   set bob to [:]
  12.   set bob to value(field "O.DIR")
  13.   repeat with i = 1 to count(bob)
  14.     put getAt(getAt(bob,i),1)
  15.   end repeat
  16.   sort bob
  17.   repeat with i = 1 to count(bob)
  18.     put getAt(getAt(bob,i),1)
  19.   end repeat
  20. end test2